home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dbaseacc.arc / DEPPRINT.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.0 KB  |  74 lines
  1. *DEPPRINT.CMD FILE
  2. *Prints valid deposits in the GetDep file as part of the Deposits file.
  3.  
  4.  
  5. @ 5,10 SAY 'To print the deposits you just entered,'
  6. @ 6,10 SAY 'press <Return>.'
  7. ? CHR(7)
  8. WAIT
  9. SET PRINT ON
  10. ?  'DATE     PAID BY              AMOUNT   INV NO.   COMMENTS:'
  11. ?
  12. GO TOP
  13. STORE 0 TO Count
  14. DO WHILE .NOT. EOF
  15.     DISPLAY OFF Dep:Date, Payer, Deposit, Inv:Nmbr, Comments FOR .NOT. *
  16.     SKIP
  17.     STORE Count+1 TO Count
  18.     IF Count=10
  19.  STORE 0 TO Count
  20.  WAIT
  21.     ENDIF
  22. ENDDO
  23. SUM Deposit TO Temp
  24. ?
  25. ? ' The total deposit is ' + STR(Temp,9,2)
  26. ?
  27. ?'  The final balance is ' + STR(Mbalance,9,2)
  28. ?
  29. SET PRINT OFF
  30.  
  31. RELEASE Count, Temp
  32. RETURN
  33. osit is ' + STR(Temp,9,2)
  34. ?
  35. ?'  The final balance is ' + STR(Mbalance,9,2)
  36. ?
  37. SET PRINT OFF
  38.  
  39. REontinue
  40.  
  41. DO GetDate
  42.  
  43. DELECT PRIMARY
  44. USE B:Deposits
  45. COPY STRUCTURE TO GetDep
  46.  
  47. USE GetDep
  48. STORE 'Y' TO Depositing
  49. DO WHILE !(Depositing) <>'F'
  50.     APPEND BLANK
  51.     STORE STR(#,5) TO Number
  52.     REPLACE Dep:Date WITH Date
  53.  
  54.  
  55.     ERASE
  56.     *Nextecessary so
  57.     *that we can compare each record in the GetDep file against all of the
  58.     *records in the Invoices file.
  59.     DO DepTrans
  60.     USE B:Deposits
  61.     APPEND FROM GetDep
  62. ENDIF there are deposits to add to the file
  63.  
  64. DELETE FILE GetDep
  65. RELEASE All
  66. RETURN
  67. SE B:Deposits
  68.     APPEND FROM GetDep
  69. ENDIF there are deposits to add to the file
  70.  
  71. DELETE FILE GetDepEPLACE Marker WITH 'Q'
  72.  
  73.     * If it's the end of the year, we total all the quarterly amounts to
  74.     * a